object fMain: TfMain Left = 8 Top = 116 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Michael'#39's Disk Benchmark' ClientHeight = 458 ClientWidth = 473 Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 16 object Label1: TLabel Left = 16 Top = 240 Width = 153 Height = 20 AutoSize = False Caption = '&Drive:' FocusControl = DriveCombo end object Label2: TLabel Left = 16 Top = 296 Width = 148 Height = 20 AutoSize = False Caption = '&Size of test-file:' FocusControl = ComboBox1 end object Label3: TLabel Left = 16 Top = 144 Width = 441 Height = 41 AutoSize = False Caption = 'Please select the drive that you want to test, the size of the t' + 'est-file and the type of the test-data.' end object Label4: TLabel Left = 16 Top = 192 Width = 441 Height = 41 AutoSize = False Caption = 'After you have made your selection, please click on "Start" to s' + 'tart the disk benchmark.' end object Label5: TLabel Left = 16 Top = 16 Width = 441 Height = 33 Alignment = taCenter AutoSize = False Caption = 'Michael'#39's Disk Benchmark' Font.Color = clWindowText Font.Height = -23 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 16 Top = 48 Width = 441 Height = 25 Alignment = taCenter AutoSize = False Caption = 'for Windows 95 and Windows NT' Font.Color = clWindowText Font.Height = -18 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label7: TLabel Left = 16 Top = 96 Width = 441 Height = 25 Alignment = taCenter AutoSize = False Caption = '� Copyright 1995, 1996 by Michael Schoebel Software-Design' end object Label8: TLabel Left = 16 Top = 73 Width = 441 Height = 24 Alignment = taCenter AutoSize = False Caption = 'v2.01 10-Jul-1996' end object Label9: TLabel Left = 244 Top = 240 Width = 153 Height = 20 AutoSize = False Caption = '&Test-Data:' end object Button1: TButton Left = 340 Top = 416 Width = 116 Height = 33 Hint = 'Closes MDB95.' Cancel = True Caption = 'Close' ParentShowHint = False ShowHint = True TabOrder = 7 OnClick = Button1Click end object DriveCombo: TDriveComboBox Left = 16 Top = 265 Width = 201 Height = 22 ParentShowHint = False ShowHint = True TabOrder = 0 end object Panel1: TPanel Left = 16 Top = 400 Width = 441 Height = 2 BevelOuter = bvLowered TabOrder = 8 end object ComboBox1: TComboBox Left = 16 Top = 321 Width = 201 Height = 24 Style = csDropDownList DropDownCount = 11 ItemHeight = 16 Items.Strings = ( '1mb' '2mb' '4mb' '8mb' '16mb' '32mb' '64mb' '128mb' '256mb' '512mb' '1gb') ParentShowHint = False ShowHint = True TabOrder = 1 end object Button2: TButton Left = 16 Top = 416 Width = 116 Height = 33 Hint = 'Starts the testing.' Caption = 'Start' Default = True ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = Button2Click end object Panel2: TPanel Left = 16 Top = 128 Width = 441 Height = 2 BevelOuter = bvLowered TabOrder = 9 end object Button3: TButton Left = 177 Top = 416 Width = 116 Height = 33 Hint = 'Displays additional information about MDB95.' Caption = '&Information...' ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = Button3Click end object RadioButton1: TRadioButton Left = 244 Top = 272 Width = 121 Height = 20 Caption = 'Zeroes' Checked = True ParentShowHint = False ShowHint = True TabOrder = 2 TabStop = True end object RadioButton2: TRadioButton Left = 244 Top = 296 Width = 121 Height = 20 Caption = 'Random' ParentShowHint = False ShowHint = True TabOrder = 3 end object RadioButton3: TRadioButton Left = 244 Top = 320 Width = 221 Height = 20 Caption = 'File' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = RadioButton3Click end object Panel3: TPanel Left = 228 Top = 240 Width = 2 Height = 149 BevelOuter = bvLowered Caption = 'Panel3' TabOrder = 10 end object CheckBox1: TCheckBox Left = 244 Top = 368 Width = 193 Height = 17 Hint = 'Tests the read-performance for reading a specific file.' Caption = 'Read testfile (CD-Test)' ParentShowHint = False ShowHint = True TabOrder = 11 OnClick = CheckBox1Click end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Filter = 'All Files|*.*' Options = [ofPathMustExist, ofFileMustExist] end end